/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_04 / basiccomp / slash_

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 00 0c f4 3e 53 6c | 61 73 68 2d 0d 01 9a 08 |.....>Sl|ash-....|
|00000010| eb 30 3a ee 0d 01 a4 1c | ee 20 85 20 e7 20 9f 3d |.0:.....|. . . .=|
|00000020| 31 37 20 8c 20 8d 44 5c | 48 20 8b 20 8d 44 66 48 |17 . .D\|H . .DfH|
|00000030| 0d 01 ae 16 ef 31 39 2c | 31 2c 36 7c 3a ef 31 39 |.....19,|1,6|:.19|
|00000040| 2c 30 2c 34 7c 3a 0d 01 | b8 2d 6f 66 66 73 65 74 |,0,4|:..|.-offset|
|00000050| 25 3d 37 35 3a 6f 6c 64 | 5f 70 74 72 25 3d 6f 66 |%=75:old|_ptr%=of|
|00000060| 66 73 65 74 25 2b 31 3a | 69 6e 5f 61 73 73 65 6d |fset%+1:|in_assem|
|00000070| 25 3d a3 0d 01 c2 11 40 | 25 3d 26 30 31 30 30 30 |%=.....@|%=&01000|
|00000080| 39 30 38 3a 0d 01 cc 15 | de 20 6c 69 6e 65 73 70 |908:....|. linesp|
|00000090| 61 63 65 25 20 26 46 46 | 3a 0d 01 f4 28 fb 20 30 |ace% &FF|:...(. 0|
|000000a0| 3a fb 20 31 33 35 3a f1 | c4 32 34 30 2c 22 20 22 |:. 135:.|.240," "|
|000000b0| 29 3b 8a 30 2c 33 30 29 | c4 38 30 2c 22 20 22 29 |);.0,30)|.80," ")|
|000000c0| 3b 0d 01 fe 50 f1 8a 36 | 2c 31 29 22 53 4c 41 53 |;...P..6|,1)"SLAS|
|000000d0| 48 20 2d 20 61 20 75 74 | 69 6c 69 74 79 20 74 6f |H - a ut|ility to|
|000000e0| 20 63 6f 6d 70 72 65 73 | 73 20 42 41 53 49 43 20 | compres|s BASIC |
|000000f0| 70 72 6f 67 72 61 6d 73 | 2e 20 a9 20 42 72 69 61 |programs|. . Bria|
|00000100| 6e 20 43 61 72 72 6f 6c | 6c 2c 20 31 39 38 38 2e |n Carrol|l, 1988.|
|00000110| 22 0d 02 08 0d fb 20 37 | 3a fb 20 31 32 38 0d 02 |"..... 7|:. 128..|
|00000120| 30 3a f1 8a 33 2c 35 29 | 89 28 37 30 29 8a 33 2c |0:..3,5)|.(70).3,|
|00000130| 35 29 22 45 6e 74 65 72 | 20 69 6e 70 75 74 20 66 |5)"Enter| input f|
|00000140| 69 6c 65 6e 61 6d 65 3a | 20 20 22 3b 3a e8 22 22 |ilename:|  ";:.""|
|00000150| 6f 6c 64 66 69 6c 65 24 | 0d 02 3a 3a c8 99 20 22 |oldfile$|..::.. "|
|00000160| 4f 53 5f 46 69 6c 65 22 | 2c 35 2c 6f 6c 64 66 69 |OS_File"|,5,oldfi|
|00000170| 6c 65 24 20 b8 20 66 6f | 75 6e 64 25 2c 2c 6c 6f |le$ . fo|und%,,lo|
|00000180| 5f 61 64 64 72 25 2c 2c | 66 69 6c 65 5f 6c 67 74 |_addr%,,|file_lgt|
|00000190| 68 25 0d 02 44 31 e7 20 | 66 6f 75 6e 64 25 3d 30 |h%..D1. |found%=0|
|000001a0| 20 ef 37 3a f1 8a 33 2c | 37 29 22 4e 6f 20 66 69 | .7:..3,|7)"No fi|
|000001b0| 6c 65 20 22 6f 6c 64 66 | 69 6c 65 24 3a e5 20 8d |le "oldf|ile$:. .|
|000001c0| 54 70 42 0d 02 4e 38 e7 | 20 66 6f 75 6e 64 25 3d |TpB..N8.| found%=|
|000001d0| 32 20 ef 37 3a f1 8a 33 | 2c 37 29 6f 6c 64 66 69 |2 .7:..3|,7)oldfi|
|000001e0| 6c 65 24 22 20 69 73 20 | 61 20 64 69 72 65 63 74 |le$" is |a direct|
|000001f0| 6f 72 79 22 3a e5 20 8d | 54 70 42 0d 02 58 4f e7 |ory":. .|TpB..XO.|
|00000200| 20 c1 c3 7e 6c 6f 5f 61 | 64 64 72 25 2c 34 2c 33 | ..~lo_a|ddr%,4,3|
|00000210| 29 3c 3e 22 46 46 42 22 | 20 ef 37 3a f1 8a 33 2c |)<>"FFB"| .7:..3,|
|00000220| 37 29 6f 6c 64 66 69 6c | 65 24 22 20 69 73 20 6e |7)oldfil|e$" is n|
|00000230| 6f 74 20 61 20 42 41 53 | 49 43 20 70 72 6f 67 72 |ot a BAS|IC progr|
|00000240| 61 6d 22 3a e5 20 8d 54 | 70 42 0d 02 80 3a f1 8a |am":. .T|pB...:..|
|00000250| 33 2c 37 29 89 28 37 30 | 29 8a 33 2c 37 29 22 45 |3,7).(70|).3,7)"E|
|00000260| 6e 74 65 72 20 6f 75 74 | 70 75 74 20 66 69 6c 65 |nter out|put file|
|00000270| 6e 61 6d 65 3a 20 22 3b | 3a e8 22 22 6e 65 77 66 |name: ";|:.""newf|
|00000280| 69 6c 65 24 0d 02 8a 4f | e7 20 6e 65 77 66 69 6c |ile$...O|. newfil|
|00000290| 65 24 3d 6f 6c 64 66 69 | 6c 65 24 20 ef 37 3a f1 |e$=oldfi|le$ .7:.|
|000002a0| 8a 33 2c 39 29 22 59 6f | 75 20 77 69 6c 6c 20 6f |.3,9)"Yo|u will o|
|000002b0| 76 65 72 2d 77 72 69 74 | 65 20 74 68 65 20 69 6e |ver-writ|e the in|
|000002c0| 70 75 74 20 66 69 6c 65 | 21 22 27 27 3a e5 20 8d |put file|!"'':. .|
|000002d0| 74 40 42 0d 02 94 3d ee | 20 85 20 3a 87 3a f1 8a |t@B...=.| . :.:..|
|000002e0| 33 2c 39 29 22 50 75 74 | 20 61 20 64 69 73 63 20 |3,9)"Put| a disc |
|000002f0| 69 6e 20 74 68 65 20 64 | 65 73 74 69 6e 61 74 69 |in the d|estinati|
|00000300| 6f 6e 20 64 72 69 76 65 | 22 3a e5 20 8d 74 5e 42 |on drive|":. .t^B|
|00000310| 0d 02 9e 31 c8 99 20 22 | 4f 53 5f 46 69 6c 65 22 |...1.. "|OS_File"|
|00000320| 2c 35 2c 6e 65 77 66 69 | 6c 65 24 20 b8 20 66 6f |,5,newfi|le$ . fo|
|00000330| 75 6e 64 25 2c 2c 2c 2c | 2c 61 74 74 72 69 62 73 |und%,,,,|,attribs|
|00000340| 25 0d 02 a8 1d ee 20 85 | 20 e7 20 9f 3d 31 37 20 |%..... .| . .=17 |
|00000350| 8c 20 8d 44 5c 48 20 8b | 20 8d 44 66 48 3a 0d 02 |. .D\H .| .DfH:..|
|00000360| b2 0f f1 8a 33 2c 39 29 | 89 28 37 30 29 0d 02 bc |....3,9)|.(70)...|
|00000370| 38 e7 20 66 6f 75 6e 64 | 25 3d 32 20 ef 37 3a f1 |8. found|%=2 .7:.|
|00000380| 8a 33 2c 39 29 6e 65 77 | 66 69 6c 65 24 22 20 69 |.3,9)new|file$" i|
|00000390| 73 20 61 20 64 69 72 65 | 63 74 6f 72 79 22 3a e5 |s a dire|ctory":.|
|000003a0| 20 8d 74 40 42 0d 02 c6 | 0e e7 20 66 6f 75 6e 64 | .t@B...|.. found|
|000003b0| 25 20 8c 0d 02 d0 3f e7 | 20 61 74 74 72 69 62 73 |% ....?.| attribs|
|000003c0| 25 20 80 20 25 30 30 30 | 30 31 30 30 30 20 ef 37 |% . %000|01000 .7|
|000003d0| 3a f1 8a 33 2c 39 29 6e | 65 77 66 69 6c 65 24 22 |:..3,9)n|ewfile$"|
|000003e0| 20 69 73 20 6c 6f 63 6b | 65 64 22 3a e5 20 8d 74 | is lock|ed":. .t|
|000003f0| 40 42 0d 02 da 46 ef 37 | 3a f1 8a 33 2c 39 29 6e |@B...F.7|:..3,9)n|
|00000400| 65 77 66 69 6c 65 24 22 | 20 65 78 69 73 74 73 2e |ewfile$"| exists.|
|00000410| 20 44 6f 20 79 6f 75 20 | 77 61 6e 74 20 74 6f 20 | Do you |want to |
|00000420| 6f 76 65 72 2d 77 72 69 | 74 65 20 69 74 20 28 59 |over-wri|te it (Y|
|00000430| 2f 4e 29 20 3f 20 22 3b | 0d 02 e4 1d e7 20 a4 6e |/N) ? ";|..... .n|
|00000440| 6f 20 f1 8a 33 2c 39 29 | 89 28 37 30 29 3a e5 20 |o ..3,9)|.(70):. |
|00000450| 8d 74 40 42 3a 0d 02 ee | 05 cd 0d 02 f8 05 87 0d |.t@B:...|........|
|00000460| 03 20 26 de 20 66 69 6c | 65 73 70 61 63 65 25 20 |. &. fil|espace% |
|00000470| 6f 66 66 73 65 74 25 2b | 66 69 6c 65 5f 6c 67 74 |offset%+|file_lgt|
|00000480| 68 25 2b 35 3a 0d 03 2a | 35 c8 99 20 22 4f 53 5f |h%+5:..*|5.. "OS_|
|00000490| 46 69 6c 65 22 2c 26 46 | 46 2c 6f 6c 64 66 69 6c |File",&F|F,oldfil|
|000004a0| 65 24 2c 28 66 69 6c 65 | 73 70 61 63 65 25 2b 6f |e$,(file|space%+o|
|000004b0| 66 66 73 65 74 25 29 2c | 30 3a 0d 03 52 3b f1 8a |ffset%),|0:..R;..|
|000004c0| 31 32 2c 31 31 29 22 31 | 2e 20 52 65 6d 6f 76 65 |12,11)"1|. Remove|
|000004d0| 20 52 45 4d 73 20 28 59 | 2f 4e 29 3f 2e 2e 2e 2e | REMs (Y|/N)?....|
|000004e0| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |........|........|
|000004f0| 2e 2e 20 22 3b 0d 03 5c | 1b e7 20 a4 6e 6f 20 72 |.. ";..\|.. .no r|
|00000500| 65 6d 73 25 3d a3 20 8b | 20 72 65 6d 73 25 3d b9 |ems%=. .| rems%=.|
|00000510| 0d 03 66 3b f1 8a 31 32 | 2c 31 32 29 22 32 2e 20 |..f;..12|,12)"2. |
|00000520| 52 65 6d 6f 76 65 20 6c | 65 61 64 69 6e 67 20 73 |Remove l|eading s|
|00000530| 70 61 63 65 73 20 26 20 | 63 6f 6c 6f 6e 73 20 28 |paces & |colons (|
|00000540| 59 2f 4e 29 3f 20 2e 2e | 20 22 3b 0d 03 70 21 e7 |Y/N)? ..| ";..p!.|
|00000550| 20 a4 6e 6f 20 6c 65 61 | 64 65 72 73 25 3d a3 20 | .no lea|ders%=. |
|00000560| 8b 20 6c 65 61 64 65 72 | 73 25 3d b9 0d 03 7a 3b |. leader|s%=...z;|
|00000570| f1 8a 31 32 2c 31 33 29 | 22 33 2e 20 52 65 6d 6f |..12,13)|"3. Remo|
|00000580| 76 65 20 65 6d 70 74 79 | 20 6c 69 6e 65 73 20 28 |ve empty| lines (|
|00000590| 59 2f 4e 29 3f 20 2e 2e | 2e 2e 2e 2e 2e 2e 2e 2e |Y/N)? ..|........|
|000005a0| 2e 2e 2e 2e 20 22 3b 0d | 03 84 21 e7 20 a4 6e 6f |.... ";.|..!. .no|
|000005b0| 20 65 6d 70 74 69 65 73 | 25 3d a3 20 8b 20 65 6d | empties|%=. . em|
|000005c0| 70 74 69 65 73 25 3d b9 | 0d 03 8e 3d e7 20 72 65 |pties%=.|...=. re|
|000005d0| 6d 73 25 20 84 20 6c 65 | 61 64 65 72 73 25 20 84 |ms% . le|aders% .|
|000005e0| 20 65 6d 70 74 69 65 73 | 25 20 6e 6f 5f 63 68 61 | empties|% no_cha|
|000005f0| 6e 67 65 25 3d a3 20 8b | 20 6e 6f 5f 63 68 61 6e |nge%=. .| no_chan|
|00000600| 67 65 25 3d b9 0d 03 b6 | 3b f1 8a 31 32 2c 31 34 |ge%=....|;..12,14|
|00000610| 29 22 34 2e 20 50 72 6f | 63 65 73 73 20 61 6c 6c |)"4. Pro|cess all|
|00000620| 20 6c 69 6e 65 73 20 28 | 59 2f 4e 29 3f 20 2e 2e | lines (|Y/N)? ..|
|00000630| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 2e 20 22 3b |........|..... ";|
|00000640| 0d 03 c0 0b e7 20 a4 6e | 6f 20 8c 0d 03 ca 12 f1 |..... .n|o ......|
|00000650| 8a 31 32 2c 31 34 29 89 | 28 36 37 29 3b 0d 03 d4 |.12,14).|(67);...|
|00000660| 33 f1 8a 31 32 2c 31 34 | 29 22 34 2e 20 53 74 6f |3..12,14|)"4. Sto|
|00000670| 70 20 70 72 6f 63 65 73 | 73 69 6e 67 20 40 20 6c |p proces|sing @ l|
|00000680| 69 6e 65 20 22 3b 3a e8 | 22 22 62 65 67 69 6e 25 |ine ";:.|""begin%|
|00000690| 0d 03 de 18 e7 20 62 65 | 67 69 6e 25 3c 30 20 ef |..... be|gin%<0 .|
|000006a0| 37 3a e5 20 8d 64 4a 43 | 0d 03 e8 2a f1 8a 34 33 |7:. .dJC|...*..43|
|000006b0| 2c 31 34 29 22 2c 20 72 | 65 73 75 6d 65 20 40 20 |,14)", r|esume @ |
|000006c0| 6c 69 6e 65 20 22 3b 3a | e8 22 22 66 69 6e 69 73 |line ";:|.""finis|
|000006d0| 68 25 0d 03 f2 2f e7 20 | 66 69 6e 69 73 68 25 3e |h%.../. |finish%>|
|000006e0| 36 35 32 37 39 20 84 20 | 62 65 67 69 6e 25 3e 3d |65279 . |begin%>=|
|000006f0| 66 69 6e 69 73 68 25 20 | ef 37 3a e5 20 8d 64 4a |finish% |.7:. .dJ|
|00000700| 43 0d 03 fc 05 cc 0d 04 | 06 17 62 65 67 69 6e 25 |C.......|..begin%|
|00000710| 3d 30 3a 66 69 6e 69 73 | 68 25 3d 30 3a 0d 04 10 |=0:finis|h%=0:...|
|00000720| 05 cd 0d 04 38 14 66 69 | 6c 65 73 70 61 63 65 25 |....8.fi|lespace%|
|00000730| 3f 30 3d 26 44 3a 0d 04 | 42 12 e7 20 6e 6f 5f 63 |?0=&D:..|B.. no_c|
|00000740| 68 61 6e 67 65 25 20 8c | 0d 04 4c 0f 6e 65 77 5f |hange% .|..L.new_|
|00000750| 70 74 72 25 3d 31 3a 0d | 04 56 05 cc 0d 04 60 13 |ptr%=1:.|.V....`.|
|00000760| 66 69 6c 65 73 70 61 63 | 65 25 21 31 3d 30 3a 0d |filespac|e%!1=0:.|
|00000770| 04 6a 25 6a 25 3d a9 28 | 6e 65 77 66 69 6c 65 24 |.j%j%=.(|newfile$|
|00000780| 29 3a 66 69 6c 65 73 70 | 61 63 65 25 3f 33 3d 6a |):filesp|ace%?3=j|
|00000790| 25 2b 36 3a 0d 04 74 26 | 66 69 6c 65 73 70 61 63 |%+6:..t&|filespac|
|000007a0| 65 25 3f 34 3d 26 46 34 | 3a 66 69 6c 65 73 70 61 |e%?4=&F4|:filespa|
|000007b0| 63 65 25 3f 35 3d 26 33 | 45 3a 0d 04 7e 14 e3 20 |ce%?5=&3|E:..~.. |
|000007c0| 6d 6f 76 65 72 25 3d 31 | 20 b8 20 6a 25 3a 0d 04 |mover%=1| . j%:..|
|000007d0| 88 30 66 69 6c 65 73 70 | 61 63 65 25 3f 28 6d 6f |.0filesp|ace%?(mo|
|000007e0| 76 65 72 25 2b 35 29 3d | 97 28 c1 6e 65 77 66 69 |ver%+5)=|.(.newfi|
|000007f0| 6c 65 24 2c 6d 6f 76 65 | 72 25 2c 31 29 29 0d 04 |le$,move|r%,1))..|
|00000800| 92 05 ed 0d 04 9c 19 66 | 69 6c 65 73 70 61 63 65 |.......f|ilespace|
|00000810| 25 3f 28 6a 25 2b 36 29 | 3d 26 44 3a 0d 04 a6 12 |%?(j%+6)|=&D:....|
|00000820| 6e 65 77 5f 70 74 72 25 | 3d 6a 25 2b 37 3a 0d 04 |new_ptr%|=j%+7:..|
|00000830| b0 05 cd 0d 04 d8 13 d1 | 3d 30 3a 87 3a ef 31 39 |........|=0:.:.19|
|00000840| 2c 31 2c 33 7c 3a 0d 04 | e2 63 e7 20 6e 6f 5f 63 |,1,3|:..|.c. no_c|
|00000850| 68 61 6e 67 65 25 20 f1 | 8a 33 2c 31 36 29 22 4e |hange% .|.3,16)"N|
|00000860| 6f 74 20 6d 75 63 68 20 | 70 6f 69 6e 74 2c 20 69 |ot much |point, i|
|00000870| 73 20 74 68 65 72 65 3f | 20 2e 2e 2e 2e 2e 2e 2e |s there?| .......|
|00000880| 2e 2e 2e 2e 2e 20 4f 68 | 20 77 65 6c 6c 2c 20 69 |..... Oh| well, i|
|00000890| 66 20 79 6f 75 20 69 6e | 73 69 73 74 21 22 3a f5 |f you in|sist!":.|
|000008a0| 20 fd 20 91 3e 33 30 30 | 3a 0d 04 ec 2c d1 3d 30 | . .>300|:...,.=0|
|000008b0| 3a f1 8a 33 2c 31 36 29 | 89 28 37 36 29 8a 33 2c |:..3,16)|.(76).3,|
|000008c0| 31 36 29 22 50 72 6f 63 | 65 73 73 69 6e 67 20 6c |16)"Proc|essing l|
|000008d0| 69 6e 65 22 3b 0d 05 00 | 25 c8 95 20 6f 6c 64 5f |ine";...|%.. old_|
|000008e0| 70 74 72 25 2d 6f 66 66 | 73 65 74 25 3c 66 69 6c |ptr%-off|set%<fil|
|000008f0| 65 5f 6c 67 74 68 25 2d | 31 3a 0d 05 14 27 6c 69 |e_lgth%-|1:...'li|
|00000900| 6e 65 73 70 61 63 65 25 | 3f 30 3d 66 69 6c 65 73 |nespace%|?0=files|
|00000910| 70 61 63 65 25 3f 28 6f | 6c 64 5f 70 74 72 25 29 |pace%?(o|ld_ptr%)|
|00000920| 3a 0d 05 1e 29 6c 69 6e | 65 73 70 61 63 65 25 3f |:...)lin|espace%?|
|00000930| 31 3d 66 69 6c 65 73 70 | 61 63 65 25 3f 28 6f 6c |1=filesp|ace%?(ol|
|00000940| 64 5f 70 74 72 25 2b 31 | 29 3a 0d 05 28 2c 6c 69 |d_ptr%+1|):..(,li|
|00000950| 6e 65 4e 6f 25 3d 32 35 | 36 2a 28 6c 69 6e 65 73 |neNo%=25|6*(lines|
|00000960| 70 61 63 65 25 3f 30 29 | 2b 6c 69 6e 65 73 70 61 |pace%?0)|+linespa|
|00000970| 63 65 25 3f 31 3a 0d 05 | 32 18 f1 8a 31 39 2c 31 |ce%?1:..|2...19,1|
|00000980| 36 29 c3 28 6c 69 6e 65 | 4e 6f 25 29 3b 3a 0d 05 |6).(line|No%);:..|
|00000990| 3c 2b 6f 6c 64 5f 6c 69 | 6e 65 5f 6c 67 74 68 25 |<+old_li|ne_lgth%|
|000009a0| 3d 66 69 6c 65 73 70 61 | 63 65 25 3f 28 6f 6c 64 |=filespa|ce%?(old|
|000009b0| 5f 70 74 72 25 2b 32 29 | 3a 0d 05 50 40 e7 20 6c |_ptr%+2)|:..P@. l|
|000009c0| 69 6e 65 4e 6f 25 3e 3d | 62 65 67 69 6e 25 20 80 |ineNo%>=|begin% .|
|000009d0| 20 6c 69 6e 65 4e 6f 25 | 3c 3d 66 69 6e 69 73 68 | lineNo%|<=finish|
|000009e0| 25 20 70 72 6f 63 65 73 | 73 25 3d a3 20 8b 20 70 |% proces|s%=. . p|
|000009f0| 72 6f 63 65 73 73 25 3d | b9 0d 05 5a 27 e7 20 6c |rocess%=|...Z'. l|
|00000a00| 65 61 64 65 72 73 25 20 | 6e 6f 5f 70 61 64 73 25 |eaders% |no_pads%|
|00000a10| 3d b9 20 8b 20 6e 6f 5f | 70 61 64 73 25 3d a3 3a |=. . no_|pads%=.:|
|00000a20| 0d 05 6e 22 6f 6c 64 6c | 69 6e 65 5f 63 74 72 25 |..n"oldl|ine_ctr%|
|00000a30| 3d 33 3a 6e 65 77 6c 69 | 6e 65 5f 63 74 72 25 3d |=3:newli|ne_ctr%=|
|00000a40| 33 3a 0d 05 82 05 f5 0d | 05 8c 2a 6a 25 3d 66 69 |3:......|..*j%=fi|
|00000a50| 6c 65 73 70 61 63 65 25 | 3f 28 6f 6c 64 5f 70 74 |lespace%|?(old_pt|
|00000a60| 72 25 2b 6f 6c 64 6c 69 | 6e 65 5f 63 74 72 25 29 |r%+oldli|ne_ctr%)|
|00000a70| 3a 0d 05 a0 39 e7 20 70 | 72 6f 63 65 73 73 25 20 |:...9. p|rocess% |
|00000a80| f1 8a 34 30 2c 31 36 29 | 22 20 20 20 20 20 20 22 |..40,16)|"      "|
|00000a90| 20 8b 20 f1 8a 34 30 2c | 31 36 29 22 5b 53 6b 69 | . ..40,|16)"[Ski|
|00000aa0| 70 5d 22 3a e5 20 8d 54 | 44 46 0d 05 b4 10 e7 20 |p]":. .T|DF..... |
|00000ab0| 6e 6f 5f 70 61 64 73 25 | 20 8c 0d 05 be 19 c8 95 |no_pads%| .......|
|00000ac0| 20 28 6a 25 3d 26 32 30 | 20 84 20 6a 25 3d 26 33 | (j%=&20| . j%=&3|
|00000ad0| 41 29 3a 0d 05 c8 14 6f | 6c 64 6c 69 6e 65 5f 63 |A):....o|ldline_c|
|00000ae0| 74 72 25 2b 3d 31 3a 0d | 05 d2 29 6a 25 3d 66 69 |tr%+=1:.|..)j%=fi|
|00000af0| 6c 65 73 70 61 63 65 25 | 3f 28 6f 6c 64 5f 70 74 |lespace%|?(old_pt|
|00000b00| 72 25 2b 6f 6c 64 6c 69 | 6e 65 5f 63 74 72 25 29 |r%+oldli|ne_ctr%)|
|00000b10| 0d 05 dc 05 ce 0d 05 e6 | 0f 6e 6f 5f 70 61 64 73 |........|.no_pads|
|00000b20| 25 3d a3 3a 0d 05 f0 05 | cd 0d 06 04 0e e7 20 6a |%=.:....|...... j|
|00000b30| 25 3d 26 35 42 20 8c 0d | 06 0e 3d e7 20 ac 28 69 |%=&5B ..|..=. .(i|
|00000b40| 6e 5f 61 73 73 65 6d 25 | 29 20 80 20 a4 73 74 61 |n_assem%|) . .sta|
|00000b50| 72 74 20 69 6e 5f 61 73 | 73 65 6d 25 3d b9 3a f1 |rt in_as|sem%=.:.|
|00000b60| 8a 35 30 2c 31 36 29 22 | 5b 41 73 73 65 6d 62 6c |.50,16)"|[Assembl|
|00000b70| 65 72 5d 22 0d 06 18 06 | cd 3a 0d 06 2c 0e e7 20 |er]"....|.:..,.. |
|00000b80| 6a 25 3d 26 35 44 20 8c | 0d 06 36 30 e7 20 69 6e |j%=&5D .|..60. in|
|00000b90| 5f 61 73 73 65 6d 25 20 | 80 20 a4 65 6e 64 20 69 |_assem% |. .end i|
|00000ba0| 6e 5f 61 73 73 65 6d 25 | 3d a3 3a f1 8a 35 30 2c |n_assem%|=.:..50,|
|00000bb0| 31 36 29 89 28 31 32 29 | 0d 06 40 06 cd 3a 0d 06 |16).(12)|..@..:..|
|00000bc0| 54 18 e7 20 ac 28 70 72 | 6f 63 65 73 73 25 29 20 |T.. .(pr|ocess%) |
|00000bd0| 8c 20 8d 74 5a 46 0d 06 | 68 0d e7 20 72 65 6d 73 |. .tZF..|h.. rems|
|00000be0| 25 20 8c 0d 06 72 1a e7 | 20 6a 25 3d 26 46 34 20 |% ...r..| j%=&F4 |
|00000bf0| 6a 25 3d 26 44 3a e5 20 | 8d 74 46 46 3a 0d 06 7c |j%=&D:. |.tFF:..||
|00000c00| 2a e7 20 69 6e 5f 61 73 | 73 65 6d 25 20 80 20 28 |*. in_as|sem% . (|
|00000c10| 6a 25 3d 26 33 42 20 84 | 20 6a 25 3d 26 35 43 29 |j%=&3B .| j%=&5C)|
|00000c20| 20 6a 25 3d 26 44 3a 0d | 06 86 06 cd 3a 0d 06 9a | j%=&D:.|....:...|
|00000c30| 1f 6c 69 6e 65 73 70 61 | 63 65 25 3f 6e 65 77 6c |.linespa|ce%?newl|
|00000c40| 69 6e 65 5f 63 74 72 25 | 3d 6a 25 3a 0d 06 a4 14 |ine_ctr%|=j%:....|
|00000c50| 6e 65 77 6c 69 6e 65 5f | 63 74 72 25 2b 3d 31 3a |newline_|ctr%+=1:|
|00000c60| 0d 06 ae 14 6f 6c 64 6c | 69 6e 65 5f 63 74 72 25 |....oldl|ine_ctr%|
|00000c70| 2b 3d 31 3a 0d 06 b8 0c | fd 20 6a 25 3d 26 44 3a |+=1:....|. j%=&D:|
|00000c80| 0d 06 c2 1e 6c 69 6e 65 | 73 70 61 63 65 25 3f 32 |....line|space%?2|
|00000c90| 3d 6e 65 77 6c 69 6e 65 | 5f 63 74 72 25 3a 0d 06 |=newline|_ctr%:..|
|00000ca0| d6 24 e7 20 ac 28 65 6d | 70 74 69 65 73 25 20 80 |.$. .(em|pties% .|
|00000cb0| 20 6e 65 77 6c 69 6e 65 | 5f 63 74 72 25 3d 34 29 | newline|_ctr%=4)|
|00000cc0| 20 8c 0d 06 e0 1e e3 20 | 6d 6f 76 65 72 25 3d 30 | ...... |mover%=0|
|00000cd0| 20 b8 20 6e 65 77 6c 69 | 6e 65 5f 63 74 72 25 3a | . newli|ne_ctr%:|
|00000ce0| 0d 06 ea 33 66 69 6c 65 | 73 70 61 63 65 25 3f 28 |...3file|space%?(|
|00000cf0| 6e 65 77 5f 70 74 72 25 | 2b 6d 6f 76 65 72 25 29 |new_ptr%|+mover%)|
|00000d00| 3d 6c 69 6e 65 73 70 61 | 63 65 25 3f 6d 6f 76 65 |=linespa|ce%?move|
|00000d10| 72 25 3a 0d 06 f4 06 ed | 3a 0d 06 fe 1b 6e 65 77 |r%:.....|:....new|
|00000d20| 5f 70 74 72 25 2b 3d 6e | 65 77 6c 69 6e 65 5f 63 |_ptr%+=n|ewline_c|
|00000d30| 74 72 25 3a 0d 07 08 05 | cd 0d 07 12 1d 6f 6c 64 |tr%:....|.....old|
|00000d40| 5f 70 74 72 25 2b 3d 6f | 6c 64 5f 6c 69 6e 65 5f |_ptr%+=o|ld_line_|
|00000d50| 6c 67 74 68 25 3a 0d 07 | 26 06 ce 3a 0d 07 3a 1e |lgth%:..|&..:..:.|
|00000d60| 66 69 6c 65 73 70 61 63 | 65 25 3f 28 6e 65 77 5f |filespac|e%?(new_|
|00000d70| 70 74 72 25 29 3d 26 46 | 46 3a 0d 07 62 2d ef 31 |ptr%)=&F|F:..b-.1|
|00000d80| 39 2c 31 2c 36 7c 3a f1 | 8a 33 2c 31 36 29 89 28 |9,1,6|:.|.3,16).(|
|00000d90| 37 35 29 8a 33 2c 31 36 | 29 22 52 45 4d 4f 56 45 |75).3,16|)"REMOVE|
|00000da0| 44 3a 20 20 22 3b 3a 0d | 07 6c 23 e7 20 6e 6f 5f |D:  ";:.|.l#. no_|
|00000db0| 63 68 61 6e 67 65 25 20 | f1 22 4e 6f 74 68 69 6e |change% |."Nothin|
|00000dc0| 67 2e 22 3a e5 20 8d 74 | 68 47 0d 07 76 1a e7 20 |g.":. .t|hG..v.. |
|00000dd0| 72 65 6d 73 25 20 f1 22 | 20 52 65 6d 61 72 6b 73 |rems% ."| Remarks|
|00000de0| 2e 20 22 3b 0d 07 80 2c | e7 20 6c 65 61 64 65 72 |. ";...,|. leader|
|00000df0| 73 25 20 f1 22 4c 65 61 | 64 69 6e 67 20 73 70 61 |s% ."Lea|ding spa|
|00000e00| 63 65 73 20 26 20 63 6f | 6c 6f 6e 73 2e 20 22 3b |ces & co|lons. ";|
|00000e10| 0d 07 8a 1f e7 20 65 6d | 70 74 69 65 73 25 20 f1 |..... em|pties% .|
|00000e20| 22 45 6d 70 74 79 20 6c | 69 6e 65 73 2e 22 3b 0d |"Empty l|ines.";.|
|00000e30| 07 94 34 66 61 63 74 6f | 72 3d 94 28 31 30 30 2a |..4facto|r=.(100*|
|00000e40| 28 66 69 6c 65 5f 6c 67 | 74 68 25 2d 6e 65 77 5f |(file_lg|th%-new_|
|00000e50| 70 74 72 25 2b 31 29 2f | 66 69 6c 65 5f 6c 67 74 |ptr%+1)/|file_lgt|
|00000e60| 68 25 29 0d 07 9e 2f e7 | 20 66 69 6c 65 5f 6c 67 |h%).../.| file_lg|
|00000e70| 74 68 25 3e 28 6e 65 77 | 5f 70 74 72 25 2b 31 29 |th%>(new|_ptr%+1)|
|00000e80| 20 64 65 63 72 25 3d b9 | 20 8b 20 64 65 63 72 25 | decr%=.| . decr%|
|00000e90| 3d a3 0d 07 a8 3f f1 8a | 33 2c 31 38 29 22 49 6e |=....?..|3,18)"In|
|00000ea0| 70 75 74 20 66 69 6c 65 | 2c 20 22 6f 6c 64 66 69 |put file|, "oldfi|
|00000eb0| 6c 65 24 22 2c 20 77 61 | 73 20 22 c3 28 66 69 6c |le$", wa|s ".(fil|
|00000ec0| 65 5f 6c 67 74 68 25 29 | 22 20 62 79 74 65 73 2e |e_lgth%)|" bytes.|
|00000ed0| 22 0d 07 b2 0c f1 8a 33 | 2c 32 30 29 3b 0d 07 bc |"......3|,20);...|
|00000ee0| 4e e7 20 6e 6f 5f 63 68 | 61 6e 67 65 25 20 f1 22 |N. no_ch|ange% ."|
|00000ef0| 4f 75 74 70 75 74 20 6e | 6f 74 20 73 61 76 65 64 |Output n|ot saved|
|00000f00| 3b 20 22 3b 3a e5 20 8d | 54 42 48 20 8b 20 f1 22 |; ";:. .|TBH . ."|
|00000f10| 4f 75 74 70 75 74 20 66 | 69 6c 65 2c 20 22 6e 65 |Output f|ile, "ne|
|00000f20| 77 66 69 6c 65 24 22 2c | 20 22 3b 0d 07 c6 41 e7 |wfile$",| ";...A.|
|00000f30| 20 64 65 63 72 25 20 f1 | 22 68 61 73 20 62 65 65 | decr% .|"has bee|
|00000f40| 6e 20 72 65 64 75 63 65 | 64 20 74 6f 20 22 3b 20 |n reduce|d to "; |
|00000f50| 8b 20 f1 22 68 61 73 20 | 62 65 65 6e 20 69 6e 63 |. ."has |been inc|
|00000f60| 72 65 61 73 65 64 20 74 | 6f 20 22 3b 0d 07 d0 1b |reased t|o ";....|
|00000f70| f1 c3 28 6e 65 77 5f 70 | 74 72 25 2b 31 29 22 20 |..(new_p|tr%+1)" |
|00000f80| 62 79 74 65 73 2e 22 0d | 07 da 10 40 25 3d 26 30 |bytes.".|...@%=&0|
|00000f90| 31 30 32 30 31 30 41 0d | 07 e4 17 f1 8a 33 2c 32 |102010A.|.....3,2|
|00000fa0| 33 29 22 54 68 69 73 20 | 69 73 20 61 22 3b 0d 07 |3)"This |is a";..|
|00000fb0| ee 33 e7 20 64 65 63 72 | 25 20 f1 22 20 72 65 64 |.3. decr|% ." red|
|00000fc0| 75 63 74 69 6f 6e 20 6f | 66 20 22 3b 20 8b 20 f1 |uction o|f "; . .|
|00000fd0| 22 6e 20 69 6e 63 72 65 | 61 73 65 20 6f 66 20 22 |"n incre|ase of "|
|00000fe0| 3b 0d 07 f8 14 f1 c3 28 | 66 61 63 74 6f 72 29 22 |;......(|factor)"|
|00000ff0| 25 3b 20 22 3b 0d 08 02 | 36 f1 22 70 72 6f 63 65 |%; ";...|6."proce|
|00001000| 73 73 69 6e 67 20 74 6f | 6f 6b 20 61 62 6f 75 74 |ssing to|ok about|
|00001010| 20 22 c3 28 28 91 20 81 | 20 31 30 29 2f 31 30 29 | ".((. .| 10)/10)|
|00001020| 22 20 73 65 63 6f 6e 64 | 73 2e 22 0d 08 0c 17 e7 |" second|s.".....|
|00001030| 20 6e 6f 5f 63 68 61 6e | 67 65 25 20 8c 20 8d 44 | no_chan|ge% . .D|
|00001040| 5c 48 0d 08 34 45 c8 99 | 20 22 4f 53 5f 46 69 6c |\H..4E..| "OS_Fil|
|00001050| 65 22 2c 31 30 2c 6e 65 | 77 66 69 6c 65 24 2c 26 |e",10,ne|wfile$,&|
|00001060| 46 46 42 2c 2c 66 69 6c | 65 73 70 61 63 65 25 2c |FFB,,fil|espace%,|
|00001070| 28 66 69 6c 65 73 70 61 | 63 65 25 2b 6e 65 77 5f |(filespa|ce%+new_|
|00001080| 70 74 72 25 2b 31 29 0d | 08 5c 1d f1 8a 33 2c 32 |ptr%+1).|.\...3,2|
|00001090| 37 29 22 46 69 6e 69 73 | 68 65 64 2e 22 3a e5 20 |7)"Finis|hed.":. |
|000010a0| 8d 44 70 48 0d 08 66 26 | f1 8a 33 2c 32 37 29 3b |.DpH..f&|..3,27);|
|000010b0| 3a 40 25 3d 26 39 30 36 | 3a ef 37 3a f6 3a f1 22 |:@%=&906|:.7:.:."|
|000010c0| 20 61 74 20 6c 69 6e 65 | 22 9e 0d 08 70 26 f1 3a | at line|"...p&.:|
|000010d0| 40 25 3d 26 39 30 41 3a | ee 3a d9 23 30 3a ee 20 |@%=&90A:|.:.#0:. |
|000010e0| 85 20 87 3a d8 3a 2a 46 | 58 20 32 30 32 2c 33 32 |. .:.:*F|X 202,32|
|000010f0| 0d 08 7a 05 e0 0d 08 a2 | 1a dd 20 a4 6e 6f 3a ea |..z.....|.. .no:.|
|00001100| 20 6b 65 79 25 3a ee 3a | 2a 46 58 31 35 2c 31 0d | key%:.:|*FX15,1.|
|00001110| 08 ac 15 f5 20 6b 65 79 | 25 3d 28 a5 20 80 20 26 |.... key|%=(. . &|
|00001120| 44 46 29 3a 0d 08 b6 18 | fd 20 6b 65 79 25 3d 37 |DF):....|. key%=7|
|00001130| 38 20 84 20 6b 65 79 25 | 3d 38 39 3a 0d 08 c0 22 |8 . key%|=89:..."|
|00001140| e7 20 6b 65 79 25 3d 37 | 38 20 f1 22 4e 6f 22 3a |. key%=7|8 ."No":|
|00001150| 3d b9 20 8b 20 f1 22 59 | 65 73 22 3a 3d a3 0d 08 |=. . ."Y|es":=...|
|00001160| e8 0c dd 20 a4 73 74 61 | 72 74 0d 08 f2 18 ea 20 |... .sta|rt..... |
|00001170| 6b 25 2c 6c 25 2c 6f 70 | 74 24 3a 6f 70 74 24 3d |k%,l%,op|t$:opt$=|
|00001180| 22 22 0d 08 fc 10 e3 20 | 6b 25 3d 31 20 b8 20 32 |""..... |k%=1 . 2|
|00001190| 30 3a 0d 09 06 2d 6c 25 | 3d 66 69 6c 65 73 70 61 |0:...-l%|=filespa|
|000011a0| 63 65 25 3f 28 6f 6c 64 | 5f 70 74 72 25 2b 6f 6c |ce%?(old|_ptr%+ol|
|000011b0| 64 6c 69 6e 65 5f 63 74 | 72 25 2b 6b 25 29 3a 0d |dline_ct|r%+k%):.|
|000011c0| 09 10 10 6f 70 74 24 2b | 3d bd 28 6c 25 29 3a 0d |...opt$+|=.(l%):.|
|000011d0| 09 1a 06 ed 3a 0d 09 24 | 12 3d a7 6f 70 74 24 2c |....:..$|.=.opt$,|
|000011e0| 22 4f 50 54 22 29 3a 0d | 09 4c 0a dd 20 a4 65 6e |"OPT"):.|.L.. .en|
|000011f0| 64 0d 09 56 1d ea 20 6b | 25 2c 6c 25 2c 6f 70 74 |d..V.. k|%,l%,opt|
|00001200| 24 3a 6b 25 3d 30 3a 6f | 70 74 24 3d 22 22 0d 09 |$:k%=0:o|pt$=""..|
|00001210| 60 06 f5 3a 0d 09 6a 2a | 6c 25 3d 66 69 6c 65 73 |`..:..j*|l%=files|
|00001220| 70 61 63 65 25 3f 28 6f | 6c 64 5f 70 74 72 25 2b |pace%?(o|ld_ptr%+|
|00001230| 6f 6c 64 6c 69 6e 65 5f | 63 74 72 25 29 3a 0d 09 |oldline_|ctr%):..|
|00001240| 74 1e e7 20 6c 25 3c 3e | 26 32 30 20 6f 70 74 24 |t.. l%<>|&20 opt$|
|00001250| 3d bd 28 6c 25 29 2b 6f | 70 74 24 3a 0d 09 7e 1a |=.(l%)+o|pt$:..~.|
|00001260| 6f 6c 64 6c 69 6e 65 5f | 63 74 72 25 2d 3d 31 3a |oldline_|ctr%-=1:|
|00001270| 6b 25 2d 3d 31 3a 0d 09 | 88 1e fd 20 6c 25 3d 26 |k%-=1:..|... l%=&|
|00001280| 33 41 20 84 20 6f 6c 64 | 6c 69 6e 65 5f 63 74 72 |3A . old|line_ctr|
|00001290| 25 3d 32 3a 0d 09 92 15 | 6f 6c 64 6c 69 6e 65 5f |%=2:....|oldline_|
|000012a0| 63 74 72 25 2d 3d 6b 25 | 3a 0d 09 9c 1e e7 20 6f |ctr%-=k%|:..... o|
|000012b0| 70 74 24 3d 22 3a 5d 22 | 20 84 20 6f 70 74 24 3d |pt$=":]"| . opt$=|
|000012c0| 22 5d 22 20 3d b9 3a 0d | 09 a6 07 3d a3 3a 0d ff |"]" =.:.|...=.:..|
+--------+-------------------------+-------------------------+--------+--------+